home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PPC1B3AA.ZIP / DEBUG.PPS < prev    next >
Text File  |  1996-08-29  |  799b  |  33 lines
  1. ;----------------------------------------------------------------------------
  2. ; Copyright(C) 1996, The AEGiS Corporation
  3. ;----------------------------------------------------------------------------
  4. ;
  5. ; PROCEDURE Debug()
  6. ;
  7. ; Simple debug procedure. Saves screen state (color, cursor location)
  8. ; moves to the first line & column, writes your debug value, and restores
  9. ; screen state.
  10. ;
  11. ;----------------------------------------------------------------------------
  12. #lib
  13. #nouser
  14.  
  15. Declare Procedure Debug(String DebugValue)
  16.  
  17. ;----------------------------------------------------------------------------
  18. Procedure Debug(string DebugValue)
  19.  
  20. int x
  21. int y
  22. int c
  23.  
  24. x = getx()
  25. y = gety()
  26. c = curcolor()
  27. ansipos 1,1
  28. print "@X0F" + DebugValue,"      "
  29. ansipos x,y
  30. color c
  31.  
  32. Endproc
  33.